home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / wsanet8a / wsanet / common / misc.bas < prev    next >
Encoding:
BASIC Source File  |  1995-12-22  |  1.4 KB  |  59 lines
  1. Option Explicit
  2.  
  3. ' MISCsellaneous support functions:
  4. '   gsMISCIniPutInt      -   Save a Int in your Ini
  5. '   gfMISCIniGetInt      -   Get a Int from your Ini
  6. '   gsMISCAboutLoad      -   Funtion you call to setup About.FRM
  7. '   gsMISCAboutUnload    -   Function called by About.FRM
  8.  
  9. ' NOTE: This module DEPENDS ON an Ini control called
  10. '       "Ini" on your main form called "Main"
  11.  
  12. Function gfMISCIniGetInt (sEntry As String, lValue As Long) As Long
  13. Dim lTemp As Long
  14.  
  15.     Main!Ini.Entry = sEntry
  16.     lTemp = Val(Main!Ini.Value)
  17.     If lTemp = 0 Then
  18.         Main!Ini.Value = lValue
  19.         lTemp = lValue
  20.     End If
  21.     gfMISCIniGetInt = lTemp
  22.  
  23. End Function
  24.  
  25. Sub gsMISCAboutLoad (sAppCaption As String, sAppTitle As String, sAppDesc As String)
  26.  
  27.     Load About
  28.  
  29.     About.Caption = sAppCaption
  30.     About!PanelAppTitle = sAppTitle
  31.     About!LabelAppDescription = sAppDesc
  32.  
  33.     About.Top = Main.Top + 15
  34.     About.Left = Main.Left + 15
  35.  
  36.     About.Top = gfMISCIniGetInt("About.Top", (About.Top))
  37.     About.Left = gfMISCIniGetInt("About.Left", (About.Left))
  38.  
  39.     About.Show
  40.  
  41. End Sub
  42.  
  43. Sub gsMISCAboutUnload ()
  44.     
  45.     gsMISCIniPutInt "About.Top", (About.Top)
  46.     gsMISCIniPutInt "About.Left", (About.Left)
  47.  
  48.     Unload About
  49.  
  50. End Sub
  51.  
  52. Sub gsMISCIniPutInt (sEntry As String, lValue As Long)
  53.  
  54.     Main!Ini.Entry = sEntry
  55.     Main!Ini.Value = CStr(lValue)
  56.  
  57. End Sub
  58.  
  59.